(Finternal_set_lisp_face_attribute): Fix compilation

error.

diff --git a/src/ChangeLog b/src/ChangeLog
index c1f9d2ec862d48619aa7d1ab44d76ea81e435f6c..51fb00e325b223d67f14a843f55f46ce7f014a07 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-23  Gerd Moellmann  <gerd@gnu.org>
+
+       * xfaces.c (Finternal_set_lisp_face_attribute): Fix compilation
+       error.
+
 2001-10-23  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * xfaces.c (Finternal_set_lisp_face_attribute)

diff --git a/src/xfaces.c b/src/xfaces.c
index 011cd54fd879546e74f92c0aae96f7d2fc1ba668..cdf6c427d4bf05129f6ff1bda08eeed0f33335ad 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -4043,7 +4043,7 @@ FRAME 0 means change the face on all frames, and change the default
   else if (EQ (attr, QCfont))
     {
 #ifdef HAVE_WINDOW_SYSTEM
-      if (FRAME_WINDOW_P (f))
+      if (FRAME_WINDOW_P (XFRAME (frame)))
        {
          /* Set font-related attributes of the Lisp face from an XLFD
             font name.  */